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INTRODUZIONE 


BASIC (BEGINNER'S ALL-PURPOSE SYMBOLIC INSTRUCTION CODE) 

Il linguaggio Basic è stato progettato al Dartmouth College di Hanover Ohio nel 1963 per il 

calcolatore GE-225 (General Electric) da John George Kemeny e Thomas Eugene Kurtz. 

Il primo programma Basic gira alle 4 del mattino del 01/05/1964. 

William Henry Gates III (noto come Bill Gates; Seattle, 28 ottobre 1955) e Paul Gardner 

Allen (Seattle, 21 gennaio 1953), con l'aiuto di Monte Davidoff, diedero in licenza il loro 

Basic alla MITS (Micro Instrumentation andTelemetry Systems) in Albuquerque New 

Mexico per il computer Altair 8080, la versione occupava un totale di 4 KB di memoria 

compreso il codice e i dati usati per il codice sorgente, in seguito portarono il loro Basic su 

altre piattaforme tra cui Apple, Commodore e Atari. 

Alla fine degli anni '70 é la volta di MS-DOS (MicroSoft-Disk Operating System) che е 

fornito con un interprete Basic. 

L'IBM (/nternational Business Machines) aveva una sua versione denominata BASICA 

(BASIC Advanced) mentre la versione fornita con MS-DOS si chiamava GW-BASIC 

(Graphics and Windows BASIC) e girava su qualsiasi macchina che potesse far girare 

anche MS-DOS, ma non c'erano differenze tra i due linguaggi solo che IBM voleva 

proteggere i suoi PC dai cloni. 

Microsoft decise di realizzare anche un compilatore in modo da far girare le applicazioni 

senza il ricorso all'interprete, la nuova soluzione si chiamó QBasic (QuickBasic), 18 

agosto 1985, che fu distribuito fino alla versione 4.5, poi Microsoft inizió a distribuire il PDS 

Basic (Professional Development System) che terminó con la versione 7.1. 

Robert Zale aveva progettato il compilatore Basic che fu poi distribuito dalla Borland Inc. 

come TurboBasic, ma Zale si mise a distribuire il prodotto anche per conto suo 

chiamandolo PowerBasic che ora é arrivato alla versione a 32 bit. 

La Microsoft, legata per motivi storici e affettivi al Basic, l'ha "riesumato" e l'ha integrato 

nella tecnologia Object Based realizzando Visual Basic nel 1991, che comprende in 

pratica sia le classiche istruzioni e funzioni del Basic nelle sue numerose varianti sia le 

istruzioni necessarie per gestire gli oggetti e le proprietà. 

Linguaggio di script. 

v VBA (Visual Basic for Applications) per l'interazione con Microsoft Office. 

v VBScript (Visual Basic Scripting Edition) е eseguito dal sottosistema WSH (Windows 
Script Host) di Windows, anziché dal run-time VB. 

Small Basic continua la tradizione della programmazione in linguaggio Basic, é una 

versione del linguaggio di programmazione Basic sviluppata da Microsoft DevLabs e 

pubblicata come *Technology Preview" nel 2008. 

Е pensato per i principianti e ha una struttura molto semplificata rispetto alle altre versioni 

del Basic, sia come sintassi sia come struttura dell'ambiente di sviluppo didattico, deriva 

dal QBasic. 
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AMBIENTE DI SVILUPPO 

L'ambiente di sviluppo didattico ё legato al .NET Framework versione 3.5 SP 1 (Service 
Pack) e superiore. 

Е stato scritto in WPF (Windows Presentation Foundation). 
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Microsoft Small Basic v1.0 


| pulsanti presenti nella barra degli strumenti, in pratica un controllo ribbon, nella parte 
superiore della finestra, sono suddivisi in soli quattro gruppi. 


1. Gruppo File: comandi Nuovo, Apri, Salva e Salva con nome. 

2. Gruppo Web: comandi Importa e Pubblica. 

3. Gruppo Appunti: pulsanti Taglia, Copia, Incolla, Annulla e Ripeti. 

4. Gruppo Programma: pulsanti Esegui (F5) ed Esporta a VB. 

Nella parte sinistra dell'area principale si trova la finestra dell'editor di codice. 


È possibile aprire anche più di una finestra di codice in ogni momento, per lavorare 
contemporaneamente su piü applicazioni o per copiare frammenti di codice da una finestra 
all'altra. 

Nella parte destra della finestra ë stata inserita una barra verticale in cui appaiono 


dinamicamente informazioni sull'operazione che si sta eseguendo in ogni momento. 
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Nel gruppo Web, fare clic sul pulsante Importa, dopo aver inserito il codice 
dell'applicazione, é scaricato il codice sorgente direttamente in una finestra dell'editor. 


| Importa un programma dal web. 


Inserire l'ID del programma 


| Annulla | | 


E possibile scrivere un'applicazione ed eseguirla sia sul desktop sia nel browser, grazie al 
supporto di Silverlight, permettendo cosi di condividere i propri lavori con utilizzatori di 
tutto il mondo. 

Dopo aver progettato un'applicazione, per condividerla fare clic sul pulsante Pubblica nel 
gruppo Web, per poterla pubblicare nella galleria ufficiale. 


Ж 
& Microsoft Small Basic 


Il programma é stato pubblicato sul web. 


Sotto trovi l'ID del programma che puoi condividere con amici. 


E possibile visualizzare il programma qui: http://smailbasic.com/program/ 


v | Maggiori dettagli 


VARIABILE 

Rappresenta un valore che varia run-time ed é identificata da un nome, é dinamica. 

Una variabile е un contenitore che si trova nella memoria centrale, il valore ë il contenuto e 
il nome е l'etichetta che lo identifica. 

Il suo nome, l'etichetta, non può cambiare, ciò che varia è solo il contenuto. 

Una variabile di nome X puó contenere valori diversi in diversi momenti di tempo. 


^ 


/ 100 / 365 / 


v Lunga al massimo 40 caratteri. 
v Include lettere, numeri e underscore. 
v ll primo carattere deve essere una lettera. 


InizioTempo, Interesse Valore, Max07 


SmallBasic um 4 di 77 


TIPI DI DATI 

Tre tipi di dati. 

1. Numerico: intero o decimale. 

2. Stringa: insieme di caratteri racchiusi (" ’). 
3. Booleano: due valori "True" e "False". 


Iniziano con un apostrofo ('), tutto ció che segue questo carattere e si trova sulla sua 
stessa riga é considerato commento. 


‘questo е un commento 


OPERATORI 
Aritmetici Relazionali Logici 
Uguale a (=) 
Meno unario ( - ) Diverso da ( <>) And 
Moltiplicazione, Divisione (7, / ) Minore di ( « ) Or 
Divisione intera ( V) Maggiore di ( » ) 
Minore o Uguale a ( <=) 
Addizione, Sottrazione ( +, - ) Maggiore o Uguale a ( >= ) 


Stringa concatenata (+). 


Precedenze tra operatori 
Nelle espressioni che includono operatori di diverso tipo, i primi ad essere valutati sono gli 


operatori aritmetici in quest'ordine di precedenza. 


Negazione (-) 

Moltiplicazione e divisione (*, /) 
Divisione tra interi (Y) 

Addizione e sottrazione (+, —) 
Concatenamento di stringhe (&) 


Successivamente sono valutati gli operatori relazionali senza una particolare precedenza, 
ma in ordine da sinistra verso destra e infine gli operatori logici nel seguente ordine. 


And 
Or 


AREA DI VISIBILITA DELLE VARIABILI 
Globale. 
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INTELLISENSE 


INTRODUZIONE 

E uno strumento che fornisce informazioni sul contesto attuale: in pratica fornisce cid che 
рио essere utile, in base a cosa si sta facendo in ogni momento. 

E molto intuitivo e comodo, per non dover imparare a memoria nemmeno un'istruzione. 
Per esempio, se non si ricorda un elemento del linguaggio o uno degli oggetti disponibili, 
basta premere la combinazione СТВІ Spazio e si ottiene un elenco scorrevole. 

Con i tasti freccia sarà cosi possibile scorrere su e giù lungo tutto l'elenco, in modo 
circolare. 


vun WriteLine 


| | 
(57% | All 
| | n Write Scrive testo o numeri | 
ka nella finestra di testo. | | 
M. D WriteLine Un carattere di ritorno | 
| sarà appeso alloutput, | 
| | "ат BackgroundColor in modo che ció che | 
| @ Clear verra scritto nella | 
| finestra di testo || 


| let Cursors 


La barra laterale destra fornisce ulteriori informazioni ed esempi di codice, man mano che 
si scrive nella finestra dell'editor di codice. 


Operazione 


WriteLine 


Scrive testo o numeri nella 
finestra di testo. Un carattere 
di ritorno sara appeso 

alf output, in modo che ciò 
che verra scritto nella finestra 
di testo successivamente, sara 
visualizzato in una nuova riga. 


TextWindow. 
WriteLine(data) 


data 
I| testo o numero da scrivere 
nella finestra di testo. 


Restituisce 
Nulla 


Se nell'editor di codice si fa clic su una parola riservata del linguaggio, per esempio 
sull'oggetto TextWindow, nella barra laterale destra appaiono tutte le proprietà e tutti i 
metodi che possono essere utilizzati. 

Per esempio, ForegroundColor é una proprietà, un valore, di TextWindow. 
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In generale, la sintassi ë la seguente. 
Oggetto.Proprietà - Valore 


Per esempio, Clear é un metodo, un'operazione, di TextWindow. 
In generale, la sintassi ë la seguente. 


Oggetto.Metodo(Argomenti) 
Valore - Oggetto.Metodo(Argomenti) 


Gli eventi sono come segnali che sono sollevati, per esempio, in risposta alle azioni 
dell'utente, come muovere il mouse o cliccarlo, sono l'opposto dei metodi. 

Nel caso dei metodi, il programmatore li richiama per far fare qualcosa al PC, nel caso 
degli eventi, il PC fa sapere quando avviene qualcosa d'interessante. 

In generale, la sintassi ë la seguente. 


Oggetto.Evento - EventSub 


e 
ж 
& 
8. - 
ж 
ж 
ж 
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APPLICAZIONI CONSOLE 


INTRODUZIONE 


E la finestra della console, una finestra di testo TextWindow, simile alla finestra del 
Prompt dei comandi di Windows. 


P 
g 
& 
Ee 

(s 
ж 
ж 


Digitare nell'editor il seguente сосісе. 


TextWindow.Show() 

TextWindow.Title ="Sequenza" 
TextWindow.Clear() 
TextWindow.ForegroundColor-" Yellow" 
TextWindow. WriteLine("Ciao, mondo!") 
TextWindow.ForegroundColor="Gray" 
TextWindow.CursorLeft =0 
TextWindow.CursorTop =2 
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Eseguire l'applicazione. 


r 


E" Sequenza | 


Press any key to continue... 


Un'applicazione Small Basic ë salvata su disco con estensione SB (Small Basic). 

Questo file non ë altro che un file di testo con una diversa estensione: infatti, puó essere 
aperto anche con il Blocco note. 

Nel momento in cui si esegue l'applicazione appena salvata, SEQUENZA.SB, sono creati 
tre file. 


1. SEQUENZA.EXE 
2. SEQUENZA.PDB 
3. SMALLBASICLIBRARY.DLL 


PDB (Program Debug Database) specifica il nome file delle informazioni di debug. 

DLL (Dynamic Link Library) libreria a collegamento dinamico. 

Questi file, creati dal compilatore, permettono l'esecuzione dell'applicazione senza 
l'ambiente di sviluppo. 


Nome Tipo Dimensione 

[E] sequenza.exe Applicazione 3 KB 
Œ) sequenza.pdb Program Debug Database 10 KB 
|2] sequenza.sb File SB 1 KB 
{œ| SmallBasicLibrary.dll Estensione dell'applicazione 254 KB 
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ISTRUZIONI 
Un'istruzione é un comando che é eseguito quando l'applicazione é in esecuzione. 


Semplici 
Non contengono altre istruzioni. 


Assegnazione 
Una volta che un'espressione é stata calcolata, bisogna memorizzare il suo valore 


all'interno di una variabile per poterlo utilizzare in seguito. 
L'operatore (=) assegna ad una variabile posta alla sinistra dell'istruzione, il valore della 
variabile o dell'espressione posta alla destra. 


Variabile - Espressione 


Strutturate 
Sono composte da piü istruzioni. 


Sequenza 
Le istruzioni sono eseguite nello stesso ordine in cui sono scritte. 


Istruzione n 


TextWindow.Show() 

TextWindow. Title ="Sequenza" 
TextWindow.Clear() 

TextWindow. Write("Inserisci il tuo nome: ") 
nome- TextWindow.Read/) 

TextWindow. Write("Inserisci il moltiplicando: ") 
x = TextWindow.ReadNumber() 

TextWindow. Write("Inserisci il moltiplicatore: ") 
у = TextWindow.ReadNumber/) 

' dati due numeri interi calcolarne il prodotto 
Z=X*y 

TextWindow. WriteLine("") 
TextWindow.ForegroundColor="Yellow" 
TextWindow. WriteLine("Ciao "+nome) 
TextWindow. WriteLine("ll prodotto vale: "+2) 
TextWindow.ForegroundColor- "Gray" 
TextWindow.CursorLeft =1 
TextWindow.CursorTop =23 


Inserisci il tuo nome: Pippo 
Inserisci il moltiplicando: " 


MInserisci il moltiplicatore: 7 
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Selezione 


Se si verifica la condizione sceglie una singola o un gruppo d'istruzioni, altrimenti procede 
in sequenza. 


Selezione unaria 
Se si verifica la condizione sceglie una singola o un gruppo d'istruzioni. 


If (Condizione) Then 
istruzioni 
Endlf 


Se é vera la C, allora е eseguita |’ A 


Selezione binaria 
Se si verifica la condizione sceglie una singola o un gruppo d'istruzioni, altrimenti sceglie 
l'istruzione o un gruppo dell'altro ramo. 


If (Condizione) Then 
istruzioni] 
Else 
istruzioni2 
Endlf 


Se é vera la C, allora е eseguita I’ Ay, 
altrimenti è eseguita |’ A, 


Selezione nidificata 

Se la Condizione1 è vera, sono eseguite le istruzioni1 tra l'/f e il primo Elself. 

Se la Condizione1 é falsa, é testata la Condizione2, se la Condizione2 é vera, sono 
eseguite le istruzioni2. 

Se la Condizione2 ë falsa, ë testata la Condizione3. 


If (Condizione1) Then 
istruzioni 

Elself (Condizione2) Then 
istruzioni2 
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Elself (Condizione3) Then 
istruzioni3 

Else 
istruzioni4 

Endlf 


Esempio, stabilire se un numero é pari o dispari. 


TextWindow.Show() 
TextWindow. Title "Selezione" 
TextWindow.Clear() 
TextWindow. Write("Inserisci un numero intero: ") 
п = TextWindow.ReadNumber() 
г = Math.Remainder (п,2) 
TextWindow. WriteLine("") 
TextWindow.ForegroundColorz "Yellow" 
If (r = 0) Then 

TextWindow. WriteLine("ll numero è pari") 
Else 

TextWindow. WriteLine("ll numero è dispari") 
Endlf 
TextWindow.ForegroundColorz "Gray" 
TextWindow.CursorLeft =1 
TextWindow.CursorTop -23 


Inserisci un numero intero: 


Esempio, calcolare il massimo di tre numeri interi. 


TextWindow.Show() 
TextWindow. Title ="Calcolare il massimo di tre numeri interi" 
TextWindow.Clear() 
TextWindow. Write("Inserisci il primo numero: ") 
a = TextWindow.ReadNumber/) 
TextWindow. Write("Inserisci il primo numero: ") 
b = TextWindow.ReadNumber/) 
TextWindow. Write("Inserisci il primo numero: ") 
c = TextWindow. ReadNumber() 
max-a 
If (max«b) then 
max-b 
Endlf 
If (max«c) then 
max-c 
Endif 
TextWindow. WriteLine("") 
TextWindow.ForegroundColorz "Yellow" 
TextWindow. WriteLine("ll numero maggiore е" + max) 
TextWindow.ForegroundColor- "Gray" 
TextWindow.CursorLeft =1 
TextWindow.CursorTop -23 
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Esempio, calcolare il massimo di tre numeri interi utilizzando l'oggetto Math. 


TextWindow.Show() 

TextWindow. Title ="Calcolare il massimo di tre numeri interi" 
TextWindow.Clear() 

TextWindow. Write("Inserisci il primo numero: ") 

a = TextWindow.ReadNumber/) 

TextWindow. Write("Inserisci il primo numero: ") 

b = TextWindow.ReadNumber/) 

max- Math.Max (a,b) 

TextWindow. Write("Inserisci il primo numero: ") 

c = TextWindow.ReadNumber() 

max= Math.Max (max,c) 

TextWindow. WriteLine("") 
TextWindow.ForegroundColor="Yellow" 

TextWindow. WriteLine("ll numero maggiore е" + max) 
TextWindow.ForegroundColorz "Gray" 
TextWindow.CursorLeft =1 

TextWindow.CursorTop -23 


[a | Calcolare il massi 


Inserisci il pr о: 
Inserisci il primo numero: 


Inserisci il primo numero: 
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Iterazione 
Successione d'istruzioni eseguite ripetutamente. 


Il numero d'iterazioni е noto a priori. 


Ciclo enumerativo 
Le istruzioni, racchiuse nel ciclo, sono iterate per un numero di volte noto a priori. 


For Variabile - Inizio To Fine Step Incremento 
istruzioni 
EndFor 


É un'iterazione di tipo , ma il contatore i avanza 
automaticamente di 1 ogni ciclo 


TextWindow.Show() 
TextWindow. Title -"Пегагіопе" 
TextWindow.Clear() 
TextWindow.ForegroundColorz "Yellow" 
For і-1 To 10 

TextWindow. WriteLine(i) 
EndFor 
TextWindow.ForegroundColor="Gray" 
TextWindow.CursorLeft =1 
TextWindow.CursorTop =23 
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Il numero d'iterazioni non е noto a priori: е il programmatore che deve specificare la 


condizione che determina la fine dell'iterazione. 


Ciclo a condizione iniziale 


Il blocco е eseguito mentre la condizione, posta all'inizio del ciclo е vera, quando е falsa si 


esce dal ciclo. 


While (Condizione) 
istruzioni 
EndWhile 


М 


Мепіге е vera Ia 


TextWindow.Show() 
TextWindow.Title -"Пегагіопе" 
TextWindow.Clear() 
TextWindow.ForegroundColorz "Yellow" 
i-1 
While (i <- 10) 
TextWindow. WriteLine(i) 
i-i 
EndWhile 
TextWindow.ForegroundColorz "Gray" 
TextWindow.CursorLeft =1 
TextWindow.CursorTop =23 


C, si esegue | A 


Senza fine 
While ("True") 
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TEXT 


Esempio. 


TextWindow.Show() 
TextWindow.Title ="Confronta le stringhe" 
TextWindow.Clear() 
TextWindow.ForegroundColor-" Yellow" 
If "ABCD"="abcd" Then 

TextWindow. WriteLine("Stringhe uguali") 
Else 

TextWindow. WriteLine("Stringhe diverse") 
Endlf 
TextWindow. WriteLine(Text. Append ("ABCD","abcd")) 
TextWindow. WriteLine(Text. ConvertToLowerCase ("ABCD")) 
TextWindow. WriteLine(Text. ConvertToUpperCase ("арса") 
TextWindow. WriteLine(Text. EndsWith ("ABCD","D")) 
TextWindow. WriteLine(Text. GetCharacter(65)) 
TextWindow. WriteLine(Text. GetCharacterCode("A")) 
TextWindow. WriteLine( Text. GetIndexOf ("ABCD","C")) 
TextWindow. WriteLine( Text. GetLength ("ABCD")) 
TextWindow. WriteLine(Text. GetSubText ("ABCD",2,2)) 
TextWindow. WriteLine( Text. GetSubTextToEnd ("ABCD",3)) 
TextWindow.WriteLine(Text.IsSubText ("ABCD","abcd")) 
TextWindow. WriteLine(Text.StartsWith ("ABCD","B")) 
TextWindow. WriteLine(" ") 
TextWindow.ForegroundColor-" Yellow" 
TextWindow.ForegroundColorz "Gray" 
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ARRAY 


Matrice unidimensionale 


Matrice bidimensionale 


Esempio. 


TextWindow.Show() 
TextWindow. Title "Array" 
TextWindow.Clear() 
TextWindow. Write("Numero di elementi dell'array: ") 
п = TextWindow.ReadNumber() 
TextWindow. WriteLine("") 
' caricamento array 
Fori=1Ton 
TextWindow. Write("Elemento Numero N°" + i + ", inserisci un numero intero: ") 
vet[i] = TextWindow. Read () 
EndFor 
TextWindow. WriteLine("") 
TextWindow.ForegroundColor="Yellow" 
"stampa array 
Fori=1Ton 
TextWindow. WriteLine(vet{i]) 
EndFor 
TextWindow.ForegroundColor="Gray" 
TextWindow.CursorLeft =1 
TextWindow.CursorTop =23 
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i elementi da caricare [<=1@]: 
1. un numero intero: 
2, un numero intero: 
3, un numero intero: 
4. 


un numero intero: 


Esempio, matrice. 


TextWindow.Show() 
TextWindow. Title = 
TextWindow.Clear() 
TextWindow. Write( 
righe = TextWindow.ReadNumber() 
TextWindow. Write( J 
colonne = TextWindow.ReadNumber() 
TextWindow. WriteLine("") 
' caricamento matrice 
For riga = 1 To righe 
For colonna = 1 To colonne 


М 


TextWindow.Write( + riga+colonna+ ) 
mat[riga][colonna] = TextWindow. Read () 
EndFor 
EndFor 


TextWindow. WriteLine("") 
TextWindow.ForegroundColor= 
' stampa matrice 
For riga = 1 To righe 
For colonna = 1 To colonne 
TextWindow. Write(mat[riga][colonna]»-" ") 
EndFor 
TextWindow. WriteLine("") 
EndFor 
TextWindow.ForegroundColor= 
TextWindow.CursorLeft = 
TextWindow.CursorTop = 


umero di righe della matrice: 3 
umero di colonne della matrice: 3 


Elemento inserisci numero intero: 
Elemento inserisci numero intero: 
Elemento inserisci numero intero: 
Elemento inserisci numero intero: 


Elemento inserisci numero intero: 
Elemento inserisci numero intero: 
Elemento inserisci numero intero: 
Elemento inserisci numero intero: 
Elemento inserisci numero intero: 


д 23 
45 6 
789 


шомло 
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MATH 


Subroutine 

E una porzione di codice all'interno di un'applicazione che fa qualcosa di specifico e che 
рио essere chiamata in qualunque punto dell'applicazione. 

Vantaggi delle routine. 

Y Riducono la quantità di codice che occorre digitare. 

Y Riducono la complessità dei problemi. 

Y Migliorano la leggibilità di un'applicazione. 


Sub MiaSubroutine 
istruzioni 
EndSub 


TextWindow.Show() 

TextWindow. Title "Routine" 

TextWindow. Clear() 

TextWindow. Write("Inserisci il tuo nome: 2 

поте- TextWindow.Read() 

TextWindow. Write("Inserisci il moltiplicando: ") 
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x = TextWindow.ReadNumber() 
TextWindow. Write("Inserisci il moltiplicatore: ") 
y = TextWindow. ReadNumber() 
Prodotto() 
TextWindow. WriteLine("") 
TextWindow.ForegroundColorz "Yellow" 
TextWindow. WriteLine("Ciao "+поте) 
TextWindow. WriteLine("ll prodotto vale: "+2) 
TextWindow.ForegroundColor="Gray" 
TextWindow.CursorLeft =1 
TextWindow.CursorTop =23 
Sub Prodotto 
' dati due numeri interi calcolarne il prodotto 
zex"y 
EndSub 


ғ 


Inserisci il tuo nome: Pippo 
Inserisci il moltiplicando: 7 


MInserisci il moltiplicatore: 7 


Esempio, progettare un'applicazione che dato in input un numero intero, esegua il test di 
primalità. 


TextWindow.Show() 
TextWindow. Title "Routine" 
TextWindow.Clear() 
TextWindow. Write("Inserisci un numero: ") 
і = TextWindow. ReadNumber() 
TextWindow.ForegroundColor="Yellow" 
isPrime = "True" 
Primi() 
TextWindow. WriteLine("") 
If (isPrime = "True") Then 

TextWindow. WriteLine(i + " ë un numero primo!") 
Else 

TextWindow. WriteLine(i + "non é un numero primo!") 
Endif 
TextWindow.ForegroundColorz "Gray" 
TextWindow.CursorLeft - 1 
TextWindow.CursorTop -23 
Sub Primi 

For | = 2 To Math.SguareRoot (i) 

If (Math.Remainder (i, |) = 0) Then 
isPrime = "False" 


Goto fine 
Endlf 
EndFor 
fine: 
EndSub 
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Inserisci un numero: 1925320391606818086727 


SmallBasic um 22 di 77 


STACK 


Esempio, ricorsione. 


Sub Main 
n 21 
sel = 1 
TextWindow.Show() 
TextWindow. Title ="Ricorsione" 
While(sel<>0) 
TextWindow. Clear() 
TextWindow. WriteLine("[0] Uscita") 
TextWindow. WriteLine("[1] Calcolo Fattoriale") 
TextWindow. WriteLine("[2] Calcolo Fibonacci") 
TextWindow. Write(" Seleziona: ") 
sel=TextWindow.ReadNumber() 
TextWindow. WriteLine("") 
If(sel>0 And sel<3)Then 
TextWindow.Write("Inserisci un numero: ") 
n=TextWindow. ReadNumber() 
Endlf 
Stack.PushValue("Heap",n) 'salvo la variabili locale n 
Stack.PushValue("Heap",n) 'sia per Fact() sia per Fib() 


If(sel=1)Then ' calcolo il fattoriale 
Fact() 

Elself(sel-2) Then ' calcolo Fibonacci 
Fib() 

Endlf 


ret - Stack.PopValue("Heap")' valore di ritorno 
n -Stack.PopValue("Heap")' restore della variabile locale 
TextWindow. WriteLine("") 


TextWindow.ForegroundColorz "Yellow" 
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If(sel=0)Then 


Elself(sel=1)Then ' risultato del fattoriale 
TextWindow.WriteLine(n + "! = " + ret) 
TextWindow.Readkey() 

Elself(sel-2) Then ' risultato Fibonacci 
TextWindow.WriteLine("Fib(" + n + ") = " + ret) 
TextWindow.Readkey() 

Else 
TextWindow. WriteLine("Scelta errata!") 
TextWindow.Readkey() 

Endlf 


TextWindow.ForegroundColor- "Gray" 
TextWindow.CursorLeft =1 
TextWindow.CursorTop -23 
EndWhile 
EndSub 
' calcolo del fattoriale 
Sub Fact 
n=Stack.PopValue("Heap") 'legge il parametro 
If(n<0)Then 
TextWindow.WriteLine("Errore: il numero è negativo!") 
Stack.PushValue("Heap",0) 


Elself(n=0)Then il fattoriale di 0 è 1 
Stack.PushValue("Heap",1) 'valore di ritorno 
Else 


Stack.PushValue("Heap",n) 'salvo la variabile locale 
Stack.PushValue("Heap",n-1)' parametro per la chiamata del fattoriale 
Fact() 'ricorsione per (n-1)! 
' valore di ritorno con n * (n-1)! 
Stack. Push Value("Heap", Stack. Pop Value("Heap")*Stack. Pop Value("Heap")) 
Endlf 
EndSub 
' calcolo Fibonacci 
Sub Fib 
n = Stack.PopValue("Heap") 'legge il parametro 
If(n=0)Then 
Stack.PushValue("Heap",0) ' valore di ritorno per n=0 
Elself(n=1)Then 
Stack.PushValue("Heap",1) ' valore di ritorno per n=1 
Else 
Stack.PushValue("Heap",n) 'salvo la variabile locale 
Stack.PushValue("Heap",n-1)' parametro per la chiamata Fib() 
Fib() 'ricorsione Fib(n-1) 
ret=Stack.PopValue("Heap") ' risultato 
n=Stack.PopValue("Heap") ' Restore local variable n 
Stack.PushValue("Heap",ret)' salvo la variabile locale Ret, n поп è più necessario 
Stack.PushValue("Heap",n-2)' parametro per Fib() 
Fib() 'ricorsione Fib(n-2) 
' valore di ritorno Fib(n-1)+Fib(n-2) 
Stack. Push Value("Heap", Stack. Pop Value("Heap")+Stack. Pop Value("Heap")) 
Endlf 
EndSub 
TextWindow.Show() 
TextWindow. Title ="Ricorsione" 
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(таг Uscita 


HI11 Calcolo Fattoriale 
1:21 Calcolo Fibonacci 
Seleziona: 1 


Inserisci un numero: 7 
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PROGRAM 


Program 


La classe Program fornisce. 
metodi per controllare l'esecu- 
zione del programma. 


- + ArgumentCount 


-, Directory 

© Delay 

{® End 

(7) GetArgument 
Esempio. 
TextWindow.Show() 
TextWindow.Title ="Argomenti linea di comando" 
TextWindow.Clear() 


TextWindow.ForegroundColor="Yellow" 
TextWindow.WriteLine("Numero argomenti sulla linea di comando " + 
Program.ArgumentCount) 


ЕЎ Amministratore: C:\Windows\system32\cmd.exe сә | | & 


F:N2argument pippo pluto papera 


IF =\> 
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NETWORK 


Ë figg eo ake 


Network 


Questa classe privata fornisce 
metodi per l'acceso alla rete 


(7 DownloadFile 
(7: GetWebPageContents 
Esempio. 
TextWindow.Show() 
TextWindow. Title ="Network" 
TextWindow.Clear() 


TextWindow.ForegroundColorz "Yellow" 
TextWindow. Write(" Vuoi ottenere il contenuto di un sito o scaricare un file? (1 / 2): ") 
risp = TextWindow.Read() 
If(risp = "1") then 
TextWindow. WriteLine("Inserisci il sito internet di cui vuoi ottenere il contenuto") 
url = TextWindow.Read() 
Pagina =Network.GetWebPageContents(url) 
TextWindow. WriteLine(Pagina) 
Endlf 
If(risp = "2") then 
TextWindow. WriteLine("Inserisci il link di download") 
link = TextWindow.Read/) 
download = Network.DownloadFile(link) 
Endlf 


DI X 
Uuoi ottenere il contenuto di un sito o scaricare un file? <Ci / 2): 1 


MInserisci il sito internet di cui vuoi ottenere il contenuto 
mhttp://127.6.6.1 
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DICTIONARY 


Esempio. 


TextWindow.Show() 

TextWindow. Title = ("Dizionario") 
TextWindow.Clear() 
TextWindow.ForegroundColor-" Yellow" 
TextWindow. Write("Digita una parola: ") 

word = TextWindow.Read/) 
TextWindow.Hide() 

GraphicsWindow. Title = ("Definizione "+word+"") 
Graphics Window. FontBold = "False" 
GraphicsWindow.FontName = "Verdana" 
GraphicsWindow. FontSize = 24 
GraphicsWindow.BrushColor = "DarkGreen" 
GraphicsWindow.DrawText(10, 10, word) 
definition = Dictionary. GetDefinition(word) 
GraphicsWindow.FontSize = 12 
GraphicsWindow.BrushColor = "Black" 
GraphicsWindow.DrawText(10, 60, definition) 


Esempio. 


Variabile = 1 

TextWindow.ForegroundColor= "Green" 

TextWindow.Title = ("Dizionario SmallBasic") 

While Variabile = 1 
TextWindow. WriteLine("Inserisci parola di cui vuoi conoscere la definizione:") 
TextWindow. WriteLine("") 


Parola = TextWindow. Read() ' parola inserita 

definition = Dictionary.GetDefinition(Parola) ' funzione dizionario 
TextWindow.WriteLine(definition) ' scrive definizione 

If(definition = "") Then "caso in cui поп è trovata la definizione 


TextWindow. WriteLine("Non é stata trovata nessuna definizione!") 
TextWindow. WriteLine("") 
Endlf 

EndWhile 
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APPLICAZIONI GUI 


INTRODUZIONE 

II sistema di coordinate identifica un singolo pixel (x, y) della finestra grafica. 

La coordinata orizzontale (x) s'incrementa, a partire da 0, da sinistra verso destra. 
La coordinata verticale (y) s'incrementa, a partire da 0, dal basso verso l'alto. 


(0, 0) 


8 Graphics Testing 
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Ela finestra grafica, Graphics Window, GUI (Graphics User Interface). 


& 
ж 
& 
ж 
P 
ж 
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3 
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ж. 
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ж. 
ж 
ж. 
ж 
ж 
s 
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MOUSE 


Esempio, prima finestra GUI. 

La prima linea assegna il nome della routine all'evento KeyDown dell'oggetto Window. 
KeyDown assomiglia ad una proprietà, peró invece di assegnare un valore, si assegna la 
routine OnKeyDown; quando si verifica l'evento, la routine е chiamata automaticamente. 
Nell'esempio, la routine OnKeyDown e chiamata ogni volta che l'utente digita sulla tastiera 
la lettera "U" per terminare l'applicazione. 

Le applicazioni scritte in questo modo sono chiamate applicazioni event-driven. 


GraphicsWindow.KeyDown - OnKeyDown 

presenta() 

stampa() 

Sub presenta 
GraphicsWindow.BackgroundColor = "Aquamarine" 
Graphics Window. Title = "Prima applicazione" 
GraphicsWindow. Width = 640 
GraphicsWindow. Height = 480 
GraphicsWindow.Show() 
GraphicsWindow. Clear() 

EndSub 

Sub stampa 
GraphicsWindow.FontBold = "False" 
GraphicsWindow.FontName = "Arial" 
GraphicsWindow.FontSize = 18 
GraphicsWindow.BrushColor = "DarkGreen" 
GraphicsWindow.DrawBoundText(10,450,300, "Premi U(scita) per terminare.") 

EndSub 

Sub OnKeyDown 
If (GraphicsWindow.LastKey - "U") Then 

Program.End() 

Endlf 

EndSub 
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ПЕ. A TL. 
Prima abDpopucazior 
ri i^ 


| Premi U(scita) per terminare. 


Esempio, disegnare rette. 


Graphics Window.KeyDown = OnKeyDown 
presenta() 
calcola() 
stampa() 
Sub calcola 
Graphics Window.PenWidth = 10 
GraphicsWindow.PenColor ="Gold" 
Graphics Window. DramLine (320, 10,320,470) 
Graphics Window.PenColor ="Red" 
Graphics Window.DramwLine (10,240,630,240) 
EndSub 
Sub presenta 
Graphics Window.BackgroundColor = "Aquamarine 
Graphics Window. Title = "Rette" 
Graphics Window. Width - 640 
Graphics Window.Height = 480 
Graphics Window. Show() 
Graphics Window. Clear() 
EndSub 
Sub stampa 
Graphics Window. FontBold = "False" 
Graphics Window. FontName = "Arial" 
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GraphicsWindow.FontSize - 18 

GraphicsWindow.BrushColor - "DarkGreen" 

GraphicsWindow.DrawBoundText(10,450,300, "Premi U(scita) per terminare. ") 
EndSub 
Sub OnKeyDown 

If (GraphicsWindow.LastKey = "U") Then 

Program.End() 

Endlf 

EndSub 


r Gm TEE = 
B` Rette i 2 


| Premi U(scita) per terminare. 


ET 
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CONTROLS 


Esempio, moltiplicare due numeri interi. 


presenta() 

begin: 

calcola() 

stampa() 

Goto begin 

Sub presenta 
GraphicsWindow.BackgroundColor = "Aquamarine" 
GraphicsWindow. Title = "Prodotto" 
GraphicsWindow. Width = 640 
GraphicsWindow. Height = 480 
Graphics Window. Show() 
Graphics Window. Clear() 
Graphics Window. BrushColor = "Black" 
GraphicsWindow. DrawText(10, 10, "Inserisci il moltiplicando: ") 
txtPrimo =Controls.AddTextBox (200, 10) 
GraphicsWindow. DrawText(10,40, "Inserisci il moltiplicatore: ") 
txtSecondo =Controls.AddTextBox (200,40) 
btnCalc = Controls.AddButton("I| prodotto vale: ",10,80) 
txtRisultato =Controls.AddTextBox (200,80) 

EndSub 
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Sub calcola 
x = Controls.GetTextBoxText(txtPrimo) 
y = Controls. GetTextBoxText(txtSecondo) 
Z=X*y 
EndSub 
Sub stampa 
Graphics Window. FontBold = "False" 
Graphics Window. FontName = "Arial" 
Graphics Window. FontSize = 18 
Graphics Window. BrushColor = "Red" 
If Controls.LastClickedButton = btnCalc then 
Controls.SetTextBoxText (txtRisultato,z) 
endif 
Graphics Window. BrushColor = "DarkGreen" 
Graphics Window. DrawBoundText(10,450,300,"Premi U(scita) per terminare. ") 
EndSub 
Sub OnKeyDown 
If (GraphicsWindow.LastKey - "U") Then 
Program.End() 
endif 
EndSub 
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SHAPES 


Esempio. 


GraphicsWindow.BackgroundColor = "Aquamarine" 
GraphicsWindow. Title = "Shapes" 
GraphicsWindow. Width = 640 
GraphicsWindow. Height = 480 

Graphics Window. Show() 

rectangle = Shapes.AddRectangle(200, 100) 

Shapes.Move(rectangle, 100, 50) 

Fori= 1 To 10 
Shapes.ShowShape(rectangle) 
Shapes.Move(rectangle, 50, 50) 
Shapes.Animate(rectangle, 20 * I, 50, 5000) 

EndFor 
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DESKTOP 


Esempio. 


' Flickr é un sito web multilingua che permette agli iscritti di condividere 
' fotografie personali con chiunque abbia accesso a Internet, 

'in un ambiente web 2.0, fondato nel 2002, oggi Flickr conta diverse 

' migliaia di fotografie caricate ed è in continua crescita 

While ("True") 


foto = Flickr. GetRHandomPicture("bike") ' tag di ricerca 
Desktop.SetWallPaper(foto) ' imposta l'immagine come desktop 
Program.Delay(3 * 1000) ' tempo(secondi) per cambiare immagine 
EndWhile 
SmallBasic 
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TIMER 


Esempio, progettare un conto alla rovescia. 


GraphicsWindow.BackgroundColor - "SlateGray" 
GraphicsWindow.BrushColor - "Black" 
GraphicsWindow. CanResize -"False" 
GraphicsWindow.Top - 100 
GraphicsWindow.Left - 300 
controlli() 
begin: 
If( Controls.LastClickedButton = cont) Then 
conteggio() 
Endlf 
If(Controls.LastClickedButtonzend) Then 
Graphics Window.ShowMessage("Wait...","Applicazione") 
Program.Delay(1500) 
Program.End() 
Endlf 
Goto begin 
Sub controlli 
Graphics Window. Clear() 
Graphics Window. FontSize = 12 
GraphicsWindow. Width - 600 
GraphicsWindow. Height- 500 
GraphicsWindow. Titlez "Conto alla rovescia" 
GraphicsWindow.DrawBoundText(150,200,335, "Inserisci qui sotto i secondi per il conto 
alla rovescia") 
input - Controls.AddTextBox(210 , 220) 
Controls.SetSize(input, 200,23) 
cont=Controls.AddButton("Inizia il conteggio", 210,250) 
Controls.SetSize(cont,200,30) 
end -Controls.AdaButton(" Termina l'applicazione", 400,467) 
Controls.SetSize(end,200,30) 
EndSub 
Sub conteggio 
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sec - Controls.GetTextBoxText(input) 
Graphics Window. Title="Conteggio..." 
Graphics Window. Width - 140 
Graphics Window.Height- 150 
c-0Tosec 
Graphics Window. Clear() 
Graphics Window. BrushColor = "blue" 
GraphicsWindow.FillEllipse( 14, 14, 115, 115) 
GraphicsWindow.DrawEllipse( 14, 14, 115, 115) 
GraphicsWindow.BrushColor - "Black" 
GraphicsWindow.FontSize - 80 
GraphicsWindow. DrawText(25, 18,sec-c) 
Program.Delay(1000) 
(sec-c) 
Sound.PlayBellRing() 
controlli() 
begin 


в | Conteggio... 
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CLOCK 
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Esempio. 

TextWindow.Show() 

TextWindow. Title "Orologio" 

TextWindow.Clear() 


TextWindow.Write("Vuoi conoscere data e ora? ") 
risp = TextWindow. Read() 
TextWindow.ForegroundColor="Yellow" 
While(risp = "s") 

TextWindow. WriteLine("") 


TextWindow. WriteLine("Data "+ Clock. Date) 
TextWindow. WriteLine("Anno "4 Clock. Year) 
TextWindow. WriteLine("Mese "4 Clock.Month) 
TextWindow. WriteLine("Giorno "4 Clock.Day) 
TextWindow. WriteLine("Giorno della settimana " + Clock. WeekDay) 
TextWindow. WriteLine("Orario "+ Clock. Time) 
TextWindow. WriteLine("Ora "4 Clock.Hour) 
TextWindow. WriteLine("Minuti "4 Clock.Minute) 
TextWindow. WriteLine("Secondi " 4 Clock.Second) 
TextWindow. WriteLine("Millisecondi " 4 Clock.Millisecond) 


TextWindow. WriteLine("") 
TextWindow.ForegroundColor="White" 
TextWindow. Write("Vuoi conoscere ancora data e ora? ") 
risp = TextWindow.Read() 

EndWhile 
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Uuoi conoscere data e ora? s 


puoi conoscere ancora data e ora? n 


Esempio. 


Graphics Window. BackgroundColor = "Aquamarine" 
Graphics Window. Title = "Orologio" 
Graphics Window. Width = 290 
Graphics Window. Height = 90 
Graphics Window. Show() 
Graphics Window. Left = (Desktop. Width / 2) - (Graphics Window. Width / 2) 
GraphicsWindow. Top = (Desktop.Height / 2) - (Graphics Window. Height / 2) 
Graphics Window. CanResize = "False" 
Graphics Window. BrushColor = "Black" 
Graphics Window. FontName = "Arial New" 
Timer.Interval = 1000 
Timer. Tick = OnTick 
Sub OnTick 

Graphics Window. Clear() 

Graphics Window. FontSize = 50 

If Clock.Hour > 12 Then 

hour = Clock.Hour - 12 


amPM = "PM" 
Else 

hour = Clock. Hour 

amPM = "AM" 
Endlf 


If Clock.Minute » 9 Then 
If Clock.Second » 9 Then 
Graphics Window. DrawText(0, 0, hour + ":" + Clock.Minute + ":" + Clock.Second + " "+ 
amPM) 
Else 
GraphicsWindow.DrawText(0, 0, hour + ":" + Clock.Minute + ":0" + Clock.Second + " " 
+ amPM) 
Endlf 
Else 
If Clock.Second » 9 Then 
Graphics Window. DrawText(0, 0, hour + ":0" + Clock.Minute + ":" + Clock.Second + " " 
+ amPM) 
Else 
Graphics Window. DrawText(0, 0, hour + ":0" + Clock.Minute + ":0" + Clock.Second + " " 
1 amPM) 
Endlf 
Endlf 
GraphicsWindow.FontSize = 30 
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GraphicsWindow.DrawText(0, 50, Clock. WeekDay + " "+ Clock.Date) 
EndSub 
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FLICKR 


Oggeno 


Flickr 
| Questa classe fornisce accesso 
| ai servizi di Flickr. 


| (2 GetPictureOfMoment 
| (7 GetRandomPicture 


Esempio. 


GraphicsWindow.BackgroundColor - "Black" 
GraphicsWindow.MouseDown - OnMouseDown 
OnMouseDown 
pic - Flickr. GetHandomPicture("paris") 
GraphicsWindow. DrawhResizedlmage (pic, 0, 0, 640, 480) 
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FILE 


Esempio. 


presenta() 

Controlli() 

Controls.ButtonClicked - Push 

Sub Push 

If Controls.LastClickedButton - ElimCar Then 
eliminaCartella() 

Endlf 

If Controls.LastClickedButton - Open then 
leggi() 

Endlf 

If Controls.LastClickedButton - BtnRec then 
Scrivi() 

Endlf 

If Controls.LastClickedButton - Mod Then 
modifica () 

Endif 

If Controls.LastClickedButton - Canc Then 
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cancella() 

Endlf 

If Controls.LastClickedButton - Creac Then 
CreaCartella() 

Endlf 

If Controls.LastClickedButton - CopyBtn then 
CopiaFile() 

Endlf 

If Controls.LastClickedButton = Chiudi Then 

Program.End() 

Endlf 

Endsub 

Sub Scrivi 

path = Controls. GetTextBoxText(NomeFile) 

txt = Controls. GetTextBoxText(testo) 

If File.AppendContents(path,txt) = "SUCCESS" then 
GraphicsWindow.ShowMessage("Scrittura effettuata con successo", "Ѕиссеѕ50") 
Elself File.AppendContents(path,txt) = "FAILED" then 
GraphicsWindow.ShowMessage("Scrittura non effettuata","Errore") 

Endif 

EndSub 
Sub leggi 

path = Controls. GetTextBoxText(NomeFile) 

letto = File. ReadContents(path) 

Controls.SetTextBoxText(contenuto, letto) 

EndSub 
Sub modifica 

path = Controls. GetTextBoxText(NomeFile) 

New - Controls.GetTextBoxText(contenuto) 

If File.WriteContents(path, New) - "SUCCESS" then 
GraphicsWindow.ShowMessage("Modifica effettuata con successo", "Ѕиссеѕ50") 
Elself File. WriteContents(path, New) = "FAILED" then 
Graphics Window. ShowMessage("Modifica non effettuata", "Errore") 

Endif 

Endsub 
Sub eliminaCartella 
path - Controls.GetTextBoxText(CreateC) 
If File.DeleteDirectory(path) = "SUCCESS" then 
GraphicsWindow.ShowMessage("Eliminazione cartella effettuata con 
successo", "Successo") 
Elself File.DeleteDirectory(path) = "FAILED" then 
GraphicsWindow.ShowMessage("Eliminazione cartella non effettuata", "Errore") 
Endif 
EndSub 
Sub cancella 

path = Controls. GetTextBoxText(NomeFile) 

If File.DeleteFile(path) - "SUCCESS" then 
GraphicsWindow.ShowMessage("Cancellazione effettuata con successo", "Successo") 
Elself File.DeleteFile(path) - "FAILED" then 
GraphicsWindow.ShowMessage("Cancellazione non effettuata", "Errore") 

Endif 

EndSub 
Sub CreaCartella 

path = Controls. GetTextBoxText(CreateC) 

SmallBasic um 46 di 77 


If File.CreateDirectory(path) - "SUCCESS" then 
GraphicsWindow.ShowMessage("Creazione cartella effettuata con 
successo","Successo") 
Elself File.CreateDirectory(path) = "FAILED" then 
GraphicsWindow.ShowMessage("Creazione cartella non effettuata","Errore") 
Endif 
EndSub 
Sub CopiaFile 
path1 = Controls. GetTextBoxText(NomeFile) 
path2 = Controls.GetTextBoxText(CopyF) 
If File.CopyFile(path1,path2) = "SUCCESS" then 
GraphicsWindow.ShowMessage("Copia del file effettuata con successo","Successo") 
Elself File.CopyFile(path1,path2) = "FAILED" then 
GraphicsWindow.ShowMessage("Copia del file non effettuata", "Errore") 
Endif 
EndSub 
Sub presenta 
GraphicsWindow. Width - 680 
GraphicsWindow.Height - 630 
GraphicsWindow. Title = "File di Testo" 
Graphics Window. BackgroundColor = "Aquamarine" 
GraphicsWindow.FontName - "Апа!" 
GraphicsWindow.FontSize - 18 
GraphicsWindow.BrushColor - "Black" 
EndSub 
Sub Controlli 
GraphicsWindow. DrawText(195,25, "Inserisci percorso file su cui lavorare") 
GraphicsWindow.DrawText(195,75, "Inserisci percorso in cui copiare il file") 
GraphicsWindow. DrawText(195, 125, "Inserisci percorso in cui creare cartella") 
CopyBtn = Controls. AdaButton("Copia File", 550, 70) 
ElimCar = Controls. AdadButton("Elimina cartella", 270, 170) 
Creac = Controls. AddButton("Crea Cartella", 550, 120) 
Chiudi = Controls. AddButton("X",650,590) 
Mod = Controls.AdaButton("Modifica", 565, 170) 
Canc = Controls. AdaButton("Cancella File", 275,570) 
BtnRec = Controls. AdaButton("Registra dati", 115,570) 
Open = Controls.AdaButton(" Visualizza dati",435,570) 
NomeFile = Controls.AddTextBox(25,23) 
CopyF = Controls.AddTextBox(25, 73) 
CreateC = Controls.AddTextBox(25, 123) 
testo = Controls. AddMultiLine TextBox(25,210) 
contenuto = Controls.AddMultiLine TextBox(355,210) 
Controls. SetSize(testo, 300,350) 
Controls. SetSize(contenuto, 300,350) 
EndSub 
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F:\Esempi SBM.tx 
F:\Esempi SB\2 


Copia File 
F:\Esempi SB\2 Crea Cartella 


Modifica 


Elimina cartella 


Utilizzo di Variabili. 

Puoi accede ed utilizzare 
qualunque variabile presente 
in un'applicazione ll'interno di 
una routine. 

Come esempio, la seguente 
applicazione accetta due numeri 
e stampa il piu' grande dei due. 
Si noti che la variabile max e' 
utilizzata sia dentro che fuori 
della routine. 


Registra dati 


SmallBasic 


Cancella File 


Utilizzo di Variabili. 

Puoi accede ed utilizzare 
qualunque variabile presente 
in un'applicazione ll'interno di 
una routine. 

Come esempio, la seguente 
applicazione accetta due numeri 
e stampa il piu' grande dei due. 
Si noti che la variabile max e' 
utilizzata sia dentro che fuori 
della routine. 


Visualizza dati 
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LOGO 


INTRODUZIONE 
Dal greco logos "parola", progettato da Brown e Feurzeig presso la Bolt di Cambridge, 
Massachussets. 


r 
Schermo LOGO HUE 


Fille Disegno Opzioni Zoom Aiuto 


HELLO WORLO) 


Finestra comandi Eee 
Alt Traccia 
Pausa Stato 


Passo  Reimposta 


Esequi 


Punto d'incontro delle teorie di Jean Piaget (Neuchátel, 9 agosto 1896 - Ginevra, 16 
settembre 1980) sulla genesi del pensiero e lo sviluppo intellettuale combinate con la 
ricerca sull'intelligenza artificiale condotta da Seymour Papert (Pretoria, 1 marzo 1928) e 
Marvin Lee Minsky (New York, 9 agosto 1927) al MIT (Massachusetts Institute of 
Technology). 

Caratteristica ë la grafica con la “tartaruga”, che permette al programmatore di realizzare 
semplici disegni ordinando ad una tartaruga, una sorta di cursore, di muoversi sullo 
schermo nelle diverse direzioni, derivata dal linguaggio LISP (L/St Processing). 

É un automa che apprende perché le routine sono viste come nuove primitive. 


“Che siano i bambini a programmare il calcolatore e non il calcolatore 
a programmare i bambini." (Seymour Papert). 


In Small Basic la tartaruga si é evoluta graficamente, ma permette di fare sostanzialmente 
le stesse cose della tartaruga di LOGO. 
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TURTLE 


Esempio, quadrati. 


GraphicsWindow.KeyDown - OnKeyDown 
presenta() 
quadrato() 
quadratol() 
stampa() 
Sub quadrato 
Turtle.Show() 
Turtle. Move(50) 
Turtle. TurnRight() 
Turtle. Move(50) 
Turtle. TurnRight() 
Turtle.Move(50) 
Turtle. TurnRight() 
Turtle. Move(50) 
Turtle. TurnRight() 
EndSub 
Sub quaaratol 
For i-1 То 4 
Turtle.Move(100) 
Turtle.TurnRight() 
EndFor 
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EndSub 

Sub presenta 
GraphicsWindow.BackgroundColor - "Aquamarine" 
GraphicsWindow. Title - "Quadrato" 
GraphicsWindow. Width - 640 
Graphics Window. Height = 480 
Graphics Window. Show() 
GraphicsWindow.Clear() 
' mostriamo la tartaruga 
Turtle.Show() 
' velocità della tartaruga tra 1 e 10 
Turtle.Speed - 5 

EndSub 

Sub stampa 
GraphicsWindow.FontBold = "False" 
GraphicsWindow.FontName - "Arial" 
GraphicsWindow.FontSize = 18 
GraphicsWindow.BrushColor = "DarkGreen" 
GraphicsWindow.DrawBoundText(10,450,300, "Premi U(scita) per terminare.") 

EndSub 

Sub OnKeyDown 
If (GraphicsWindow.LastKey = "U") Then 

Program.Ena() 

Endif 

EndSub 


| Premi U(scita) per terminare. 
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Esempio, poligoni. 


GraphicsWindow.KeyDown - OnKeyDown 
presenta() 
poligoni() 
stampa() 
Sub poligoni 
‘numero arbitrario di lati 
' per i poligoni, i cui lati sono tutti uguali, l'angolo tra i lati è ottenuto 
' dividendo 360 per il numero dei lati 
' modificare la variabile lati per ottenere un poligono qualunque 
"рег esempio con lati - 4 si ottiene un quaarato 
lati - 6 
lun - 400/lati 
angolo - 360/lati 


For i-1 To lati 
For j - 1 To lati 
Turtle.Move(lun/12) 
Turtle.PenUp () 
Turtle.Move(lun/12) 
Turtle.PenDown () 
EndFor 
Turtle.Turn(angolo) 
EndFor 
EndSub 
Sub presenta 


GraphicsWindow.BackgroundColor = "Aquamarine" 
GraphicsWindow. Title = "Poligoni" 
GraphicsWindow. Width - 640 
GraphicsWindow. Height - 480 
GraphicsWindow.Show() 
Graphics Window.Clear/) 
' mostriamo la tartaruga 
Turtle.Show() 
' velocità della tartaruga tra 1 e 10 
Turtle.Speed - 5 

EndSub 

Sub stampa 
GraphicsWindow.FontBold - "False" 
GraphicsWindow.FontName - "Arial" 
GraphicsWindow.FontSize - 18 
GraphicsWindow.BrushColor - "DarkGreen" 
GraphicsWindow.DrawBoundText(10,450,300, "Premi U(scita) per terminare.") 

EndSub 

Sub OnKeyDown 
If (GraphicsWindow.LastKey - "U") Then 

Program.Ena() 

Endif 

EndSub 


SmallBasic um 52 di 77 


| Premi U(scita) per terminare. 


Esempio, figure. 


Graphics Window.KeyDown - OnKeyDown 
Controls.ButtonClicked - BC 
presenta() 
begin: 
GraphicsWindow.Clear() 
stampa() 
bottoni() 
Program. Delay(5000) 
Sub BC 
If Controls.LastClickedButton = Pol then 
lati = Controls.GetTextBoxText(TxtPol) 
If lati « 3 then 
Sound.PlayBellRing() 
Graphics Window. ShowMessage("Inserimento lati errato!" "Еггоге") 
else 
poligoni() 
endif 
endif 
If Controls.LastClickedButton - spi then 
GraphicsWindow.PenColor = Graphics Window. GetRandom Color) 
spirale() 
endif 
If Controls.LastClickedButton - cir then 
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GraphicsWindow.PenColor = Graphics Window. GetRandomColor() 
circonferenza() 

endif 

If Controls.LastClickedButton - arc then 
GraphicsWindow.PenColor = Graphics Window.GetRandomColor() 
arco() 
endif 

EndSub 

Program.Delay(10000) 

Goto begin 

Sub poligoni 
‘numero arbitrario di lati 
' per i poligoni, i cui lati sono tutti uguali, l'angolo tra i lati è ottenuto 
' dividendo 360 per il numero dei lati 
' modificare la variabile lati per ottenere un poligono qualunque 
"рег esempio con lati - 4 si ottiene un quadrato 
lun - 400/lati 
angolo = 360/lati 
For i= 1 to lati 


GraphicsWindow.PenColor = Graphics Window. GetRandomColor() 


Turtle.Move(lun) 
Turtle. Turn(angolo) 
EndFor 
EndSub 
Sub circonferenza 
For i= 1 to 360 
Turtle.Move(1) 
Turtle.Turn(1) 
EndFor 
EndSub 
Sub arco 
gradi - 40 
For i= 1 to gradi 
Turtle.Move(1) 
Turtle.Turn(1) 
EndFor 
EndSub 
Sub spirale 
side = 0 
angle = 91 
Fori= 1 to 180 
Turtle.Move(side) 
Turtle. Turn(angle) 
side = side + 1 
EndFor 
EndSub 
Sub presenta 
GraphicsWindow.BackgroundColor - "Aquamarine" 
GraphicsWindow. Title - "Figure Logo" 
GraphicsWindow. Width = 640 
GraphicsWindow. Height - 480 
GraphicsWindow.Show() 
Graphics Window. Clear() 
' mostriamo la tartaruga 
SmallBasic 
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Turtle.Show() 
' velocità della tartaruga tra 1 e 10 
Turtle.Speed - 10 

EndSub 

Sub stampa 
GraphicsWindow.FontBold - "False" 
GraphicsWindow.FontName - "Arial" 
GraphicsWindow.FontSize - 18 
GraphicsWindow.BrushColor = "DarkGreen" 
GraphicsWindow.DrawBoundText(10,450,300, "Premi U(scita) per terminare.") 

EndSub 

Sub bottoni 
Pol = Controls. AdaButton("Poligoni", 25,25) 
TxtPol = Controls. AddTextBox(155,25) 
cir = Controls.AddButton("Circonferenza", 205,25) 
arc = Controls. AddButton("Arco",345,25) 
spi = Controls. AdaButton(" Spirale", 485,25) 
Controls.SetSize(cir, 1 30,40) 
Controls.SetSize(Pol, 130,40) 
Controls.SetSize(arc, 130,40) 
Controls.SetSize(spi, 130,40) 
Controls.SetSize(TxtPol,40,40) 

EndSub 

Sub OnKeyDown 
If (GraphicsWindow.LastKey = "U") Then 

Program.End() 

endif 

EndSub 
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| Premi U(scita) per terminare. 


Esempio, auguri. 


Sound.Play ("F:\Esempi SB\felicita.mp3") 
presenta() 
Turtle. PenUp() 
Turtle. Turn(180) 
Turtle. Move(100) 
Turtle. PenDown() 
GraphicsWindow.PenColor="Yellow" 
GraphicsWindow.PenWidth = 5 
letteraeffe() 
letteraerre() 
letteraa() 
letteraenne() 
letterac() 
letteray() 
GraphicsWindow.PenColor- "Red" 
Graphics Window.PenWidth = 10 
cuore() 
Sub letteraeffe 

Turtle.Move( 100) 

Turtle. Turn(180) 

Turtle. Move(60) 

Turtle. Turn(90) 

Turtle. Move(40) 
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Turtle.Penup() 
Turtle.Move(10) 
Turtle.Turn(-90) 
Turtle.Move(40) 
Turtle.Turn(-90) 
Turtle.PenDown() 
Turtle. Move(50) 

EndSub 

Sub letteraerre 
Turtle. Turn(180) 
Turtle. PenUp() 
Turtle.Move(70) 
Turtle. Turn(90) 
Turtle.PenDown() 
a - Turtle.x 
b = Turtle.y 
Turtle.Move( 100) 
Turtle. Turn(180) 
Turtle. Move(50) 
Turtle. Turn(90) 
Turtle. Move(40) 
Turtle. Turn(-90) 
Turtle. Move(50) 
Turtle. Turn(-90) 
Turtle. Move(40) 
Turtle. Turn(-90) 
Turtle. Move(50) 
Turtle. Turn(-38) 
Turtle. Move(63) 

EndSub 

Sub letteraa 
Turtle. Turn(38) 
Turtle. Turn(180) 
Turtle.X 2 a 
Turtle.Y = b 
Turtle.PenUp() 
turtle. TurnRight() 
Turtle. Move(70) 
Turtle. TurnRight() 
Turtle. PenDown() 
Turtle.Move( 100) 
Turtle. Turn(180) 
Turtle. Move(50) 
Turtle. TurnRight() 
Turtle. Move(40) 
Turtle. TurnRight() 
Turtle. Move(50) 
Turtle. Turn(180) 
Turtle. Move(100) 
Turtle. TurnLeft() 
Turtle. Move(40) 
Turtle. Turn(180) 
Turtle. PenUp() 
Turtle.Move(70) 
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EndSub 

Sub letteraenne 
Turtle. TurnRight() 
Turtle. PenDown() 
a = Turtle.x 
b = Turtle.y 
Turtle.Move( 100) 
Turtle. Turn(180) 
Turtle.Move( 100) 
Turtle. Turn(180) 
Turtle.Turn(-25) 
Turtle.Move(110) 
Turtle.Angle - 0 
Turtle.Move(100) 
Turtle.X 2 a 
Turtle.Y = b 

EndSub 

Sub letterac 
Turtle. TurnRight() 
Turtle. PenUp() 
Turtle. Move(73) 
Turtle. TurnRight() 
Turtle. PenDown() 
Turtle.Move( 100) 
Turtle. TurnLeft() 
Turtle. Move(40) 
Turtle. TurnLeft() 
Turtle. PenUp() 
Turtle.Move( 100) 
Turtle. TurnLeft() 
turtle.PenDown() 
Turtle. Move(40) 
Turtle. Turn(180) 
Turtle. PenUp() 
Turtle. Move(60) 

EndSub 

Sub letteray 
Turtle.PenDown() 
Turtle. Turn(50) 
Turtle.Move(50) 
Turtle. Turn(40) 
Turtle. Move(64) 
Turtle. Turn(180) 
Turtle. Move(64) 
Turtle. Turn(40) 
Turtle.Move(50) 
Turtle. Turn(50) 

EndSub 

Sub cuore 
Turtle. Angle = 0 
Turtle.X - 520 
Turtle. Y = 700 
Turtle. Turn(-45) 
Turtle. Move(400) 
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For і = 0 To 180 
Turtle.Move(3) 
Turtle.Turn(1) 
endfor 
Turtle.Move(58) 
Turtle.Angle = 0 
Turtle.X = 520 
Turtle.Y = 700 
Turtle. Turn(45) 
Turtle. Move(400) 
For і = 0 То 180 
Turtle.Move(3) 
Turtle. Turn(-1) 
endfor 
Turtle. Move(58) 
Turtle.PenUp() 
Turtle.Move(1000) 
EndSub 
Sub presenta 
GraphicsWindow.BackgroundColor = "SteelBlue" 
GraphicsWindow. Title = "Auguri" 
GraphicsWindow.Width = 1024 
GraphicsWindow.Height = 768 
GraphicsWindow.Show() 
Graphics Window.Clear/) 
Graphics Window.BrushColor ="Black" 
Graphics Window.FontSize-"30" 
Graphics Window.DrawBoundText(25, 10,600,"San Valentino: 14/02/....") 
' mostriamo la tartaruga 
Turtle. Show) 
' velocità della tartaruga tra 1 e 10 
Turtle.Speed - 7 
EndSub 
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MUSICA 


SOUND 


SOUND.PLA YMUSIC(NOTES) 

Dove notes é un insieme di note musicali da suonare, non restituisce nulla. 

Gli effetti sonori si ottengono specificando l'altezza e la durata dei suoni, il tempo e 
l'eventuale sospensione dell'elaborazione dell'applicazione durante l'esecuzione sonora. 


Il PC può eseguire 84 delle 88 note della scala temperata disponibili sulla tastiera di un 
pianoforte, per un'estensione di 7 ottave. 


NS Сос. 


MU TT 


ABCDEFGABCDEFGABCDEFGABOCDEFGABCDEFGABCDEFGABCDEFGABOC 


A La D Re F Fa 
B Si E Mi G Sol 
C Do 


SmallBasic um 61 di 77 


Le note s'individuano nel modo seguente. 


Nome della nota 


Notazione anglosassone | Notazione latina 
A LA 
B SI 
C DO 
D RE 
E MI 
F FA 
G SOL 


Ottava 

La lettera O seguita da un intero da 0 a 6, dal grave all'acuto, individua l'ottava per tutte le 
note seguenti, fino al prossimo cambio di ottava; se non s'indica alcuna ottava, vale per 
default la quarta. 

Per salire o scendere di una sola ottava o anche per impostarla inizialmente, si puó usare 
«0». 

E possibile utilizzarne anche piü di uno per volta, ad esempio per salire di due o piü 
ottave. 


Esempio. 
Sound.Playmusic("04 B A C G < G F B C >>> AF G”) 


Alterazioni 
Si designano in questo modo. 
Le note di DIESIS sono prodotte aggiungendo + oppure # dopo le note normali. 


Esempio. 
Sound.PlayMusic("G#") ' SOL DIESIS equivale G# 


Le note di BEMOLLE sono prodotte aggiungendo - dopo le note normali. 


Esempio. 
Sound.PlayMusic("B-") | ' SI BEMOLLE equivale B- 


Esempi. 
' emette il DO all'ottava centrale 
Sound.PlayMusic("O3 C") 


' si emettono 4 note in successione 

‘le prime due della seconda ottava RE МІ 

Че ultime due della quarta ottava FA DIESIS e SOL DIESIS 
Sound.PlayMusic("O2 DE O4 F+G+") 


' note su diverse ottave 

' MI e FA DIESIS dell'ottava centrale 

' DO, RE BEMOLLE e MI della prima ottava 
'MI e FA DIESIS 

Sound.PlayMusic("EF+ O1 CD-E EF#") 
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'suona la scala completa di RE minore 
Sound.PlayMusic("D E F GA B- O5 C+ D") 


' tanti auguri a te 
Sound.PlayMusic("CCDCFE") 


Durata 

Le note si distinguono nel modo seguente. 

Interi (1). 

Mezzi (2), la nota è riprodotta con durata dimezzata. 

Quarti (4): valore di default. 

Ottavi (8). 

Sedicesimi (16). 

Trentaduesimi (32). 

Sessantaquattresimi (64). 

La durata 6 specificata da un numero che segue la nota alla quale applicarla. 


RAR 


Esempio. 

' suona il DO tre volte 

'la prima come intero 

"Іа seconda come un mezzo 
"а terza come un quarto 
Sound. PlayMusic("C1 C2 C4") 


Con la lettera P seguita da un intero n compreso tra 1 e 64 si riproduce una pausa di 
durata 1/n. 


Esempio. 

' suona il DO tre volte 

' con una prima pausa di 1/2 

"ипа seconda pausa di 1/16 
Sound.PlayMusic("C P2 C P16 C") 


Si riesce a eseguire l'aumento di metà durata, comune nella pratica musicale, basta far 
seguire il nome della nota dal carattere punto. 


' suona il DO sei volte con durata 

"1/4, 3/8, 3/16, 9/16, 3/4 e 1/10 

'con una pausa di 3/8 tra la quarta e quinta nota 
Sound.PlayMusic("C C. C8. C.. P4 C2. C") 


Tempi musicali 


Tempo Quarti al minuto 
Largo 40-60 BPM 
Larghetto | 60-66 BPM 
Adagio 66-76 BPM 


Andante 76-108 BPM 

Moderato 108-120 BPM 
Allegro 120-168 BPM 
Presto 168-200 BPM 
Prestissimo | 200-208 BPM 
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Con la lettera T seguita da un intero n compreso tra 32 e 255 si ottiene l'esecuzione al 
tempo di n quarti al minuto, l'assegnazione vale fino a diversa indicazione e se non é data 
vale il tempo di 120 quarti al minuto. 


Esempio. 

‘suona il DO due volte 

Ча prima volta per 1/2 secondo 
'la seconda volta per 1 secondo 
Sound.PlayMusic("C T60 C") 


Le note possono essere individuate anche con un numero progressivo, secondo la tabella 
seguente, da indicare dopo la lettera N. 


Ottava 

0 1 2 3 4 5 6 
Do 13 Do 25 Do 37 Do 49 Do 61 Do 73 Do 
Do# 14 Do£ 26 Го” 38 Do# 50 Do# 62 Бо? 74 Do# 
Re 15 Re 27 Re 39 Re 51 Re 63 Re 75 Re 
Re# 16 Re# 28 Re# 40 Re# 52 Re# 64 Re# 76 Refs 
Mi 17 Mi 29 Mi 41 Mi 53 Mi 65 Mi 77 Mi 
Fa 18 Fa 30 Fa 42 Fa 54 Fa 66 Fa 78 Fa 
Fa# 19 Fa# 31 Fa# 43 Fa# 55 Fa# 67 Fa# 79 Fa* 
Sol 20 Sol 32 Sol 44 Sol 56 Sol 68 Sol 80 Sol 
Sol 21 Sol# 33 Sol# 45 Sol# 57 Sol# 69 Sol# 81 501% 
10 La 22 La 34 La 46 La 58 La 70 La 82 La 
11 La# 23 La# 35 La# 47 La# 59 La# 71 La# 83 La* 
12 Si 24 Si 36 Si 48 Si 60 Si 72 Si 84 Si 


N QO —1 QN AB м = 


Esempio. 
Sound.PlayMusic("N1 N2") 


Esempio. 


GraphicsWindow.KeyDown - OnKeyDown 
presenta() 
stampa() 
bet = Controls.AddButton("Suona Per Elisa", 16,16) 
Controls.ButtonClicked =suona 
Sub suona 
If Controls.LastClickedButton = bet Then 
perelisa() 
Endlf 
endsub 
Sub perelisa 
Sound.PlayMusic("e d e dfebdcaceabeg#bc") 
Sound.PlayMusic(" e d#ed#ebdcaceabecba’") 
Sound.PlayMusic(" b cdegfedfedcedcb") 
Sound.PlayMusic("e d£ e d ebdcaceabegfstbc") 
Endsub 
Sub presenta 
Graphics Window. BackgroundColor = "Aquamarine" 
GraphicsWindow. Title - "Note musicali" 
GraphicsWindow. Width - 640 
GraphicsWindow. Height - 480 


SmallBasic um 64 di 77 


GraphicsWindow.Show() 
Graphics Window.Clear/) 
Graphics Window.Brush Color = "Black" 
EndSub 
Sub stampa 
GraphicsWindow.FontBold = "False" 
Graphics Window.FontName = "Arial" 
Graphics Window.FontSize = 18 
GraphicsWindow.BrushColor = "Red" 
GraphicsWindow.BrushColor = "DarkGreen" 
GraphicsWindow.DrawBoundText(10,450,300, "Premi U(scita) per terminare.") 
EndSub 
Sub OnKeyDown 
If (GraphicsWindow.LastKey = "U") Then 
Program.End() 
Endif 
EndSub 


| Suona Per Elisa 


Esempio. 


GraphicsWindow.KeyDown - OnKeyDown 
presenta() 
stampa() 
bet = Controls.AddButton("Suona Jingle Bells", 16, 16) 
Controls.ButtonClicked =suona 
Sub suona 

If Controls.LastClickedButton = bet Then 

Jingle() 

Endlf 
endsub 
Sub Jingle 

Sound.PlayMusic("e8 e8 e e8 e8 e e8 g8 c8 d8 e2 f8 f8 f f8 e8 e e8 d8 d8 e8 d д") 
Sound.PlayMusic("e8 e8 e e8 e8 e e8 g8 c8 d8 e2 f8 f8 f f8 e8 e g8 g8 f8 d8 c2") 

EndSub 
Sub presenta 

Graphics Window. BackgroundColor = "Aquamarine" 

Graphics Window. Title = "Note musicali" 

Graphics Window. Width = 640 

Graphics Window. Height = 480 

Graphics Window. Show() 

Graphics Window. Clear() 

Graphics Window. BrushColor = "Black" 
EndSub 
Sub stampa 

Graphics Window. FontBold = "False" 

Graphics Window. FontName = "Arial" 

Graphics Window. FontSize = 18 
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GraphicsWindow.BrushColor = "Red" 

GraphicsWindow.BrushColor = "DarkGreen" 

GraphicsWindow.DrawBoundText(10,450,300, "Premi U(scita) per terminare.") 
EndSub 
Sub OnKeyDown 

If (Graphics Window.LastKey = "U") Then 

Program.End() 

Endif 

EndSub 


Esempio, simulare un pianoforte. 


Sound.PlayChime() 
GraphicsWindow. Title = " ? Pianoforte ?" 
GraphicsWindow.BackgroundColor = "SlateGray" 
GraphicsWindow.BrushColor = "Black" 
GraphicsWindow.CanResize = "False" 
Controls.ButtonClicked = BC 
GraphicsWindow. Width = 340 
GraphicsWindow. Height = 200 
Graphics Window.DrawBoundText(85, 20,400,"? Premi ип Pulsante... ?") 
toni() 
semitoni() 
Sub toni 
norm - GraphicsWindow.FontName 
GraphicsWindow.FontName - "WingDings" 
bell = Controls. AdaButton("?5", 315,12) 
GraphicsWindow.FontName - norm 
C = Controls. AdadButton("DO",30 , 90) 
Controls.SetSize(C , 40 , 100) 
D = Controls. AdaButton("RE",70 , 90) 
Controls.SetSize(D , 40 , 100) 
E = Controls. AdaButton("MI", 1 10, 90) 
Controls.SetSize(E , 40 , 100) 
F = Controls. AdaButton("FA", 150, 90) 
Controls.SetSize(F , 40 , 100) 
G = Controls. AdaButton(" SOL", 190,90) 
Controls.SetSize(G , 40 , 100) 
A = Controls. AdaButton("LA", 230, 90) 
Controls.SetSize(A , 40 , 100) 
B = Controls. AdaButton(" SI", 270, 90) 
Controls.SetSize(B , 40 , 100) 
EndSub 
Sub semitoni 
Cd = Controls.AddButton("DO#",50 ,50) 
Controls.SetSize(Cd, 40 , 80) 
Dd = Controls. AdaButton("RE£",90 ,50) 
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Controls.SetSize(Dd, 40 , 80) 
Fd = Controls. AdaButton("FAZ", 170,50) 
Controls.SetSize(Fd, 40 , 80) 
GraphicsWindow.FontSize = GraphicsWindow.FontSize -1.6 
Gd = Controls.AddButton("SOL#",210,50) 
GraphicsWindow.FontSize = GraphicsWindow.FontSize +1.6 
Controls.SetSize(Gd, 40 , 80) 
Ad = Controls.AddButton("LA#",250,50) 
Controls.SetSize(Ad, 40 , 80) 
EndSub 
Sub BC 
If ( Controls.LastClickedButton = bell)Then 
Sound. PlayBellRing() 
Endlf 
If ( Controls.LastClickedButton = C) Then 
Sound.PlayMusic("C4") 
Endlf 
If ( Controls.LastClickedButton = Cd) Then 
Sound.PlayMusic("C#4”) 
Endlf 
If ( Controls.LastClickedButton = D)Then 
Sound.PlayMusic("D4") 
Endlf 
If ( Controls.LastClickedButton = Dd) Then 
Sound.PlayMusic("D#4”) 
Endlf 
If ( Controls.LastClickedButton = E)Then 
Sound.PlayMusic("E4") 
Endlf 
If ( Controls.LastClickedButton - F)Then 
Sound.PlayMusic("F4") 
Endlf 
If ( Controls.LastClickedButton - Fd)Then 
Sound.PlayMusic("F#4") 
Endlf 
If ( Controls.LastClickedButton = G)Then 
Sound.PlayMusic("G4") 
Endlf 
If ( Controls.LastClickedButton = Gd)Then 
Sound.PlayMusic("G£4") 
Endlf 
If ( Controls.LastClickedButton = A) Then 
Sound.PlayMusic("A4") 
Endlf 
If ( Controls.LastClickedButton - Ad) Then 
Sound.PlayMusic("A#4") 
Endlf 
If ( Controls.LastClickedButton = B)Then 
Sound.PlayMusic("B4") 
Endlf 
EndSub 
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ГЕ 2 


SOUND.PLA Y 

Riproduce file audio: MP3 (Motion Picture Expert Group-1/2 Audio Layer 3), un WAV 
(WAVE) o un WMA (Windows Media Audio), altri formati di file potrebbero essere riprodotti 
o meno a seconda dei CODEC (COdificare e/o DECodificare) installati sul PC. 

Se il Ше е stato messo in pausa, questoperazione riprenderà dalla posizione da cui la 
riproduzione era stata interrotta. 


Esempio. 


presenta() 

GraphicsWindow. DrawText(25, 25, "Inserisci il nome del file audio") 

GraphicsWindow.PenColor = "#000000" 

GraphicsWindow.BrushColor = "#000000" 

fn2enter = Controls.AddTextBox(25, 45) 

GraphicsWindow.FontName = "Webdings" 

bttnplay = Controls.AddButton("4", 25, 75) 

bttnpause = Controls.AddButton(";", 50, 75) 

bttnstop = Controls. AdaButton("g", 75, 75) 

begin: 

Program.Delay(100) 

If Controls.LastClickedButton = bttnplay Then 
filename = Controls.GetTextBoxText(fn2enter) 
filenameubo = Controls.GetTextBoxText(fn2enter) 
Sound. Play(filename) 

Endlf 

If Controls.LastClickedButton - bttnpause Then 
If filename = filenameubo Then 

Sound.Pause(filename) 
Else 
Sound.Pause(filename) 
Sound.Pauseffilenameubo) 
Endlf 
Endlf 
If Controls.LastClickedButton - bttnstop Then 
If filename = filenameubo Then 
Sound.Stop(filename) 
Else 
Sound.Stop(filename) 
Sound.Stop(filenameubo) 
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Endlf 

Endlf 

Goto begin 

Sub presenta 
GraphicsWindow.BackgroundColor = "Aquamarine" 
GraphicsWindow. Title = "Player" 
GraphicsWindow. Width = 400 
GraphicsWindow.Height = 135 
GraphicsWindow.Show() 
GraphicsWindow. Clear() 

EndSub 


F:\Esempi SB\m.mp3 


SOC 
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IMAGELIST 


Esempio, progettare un lettore MP3. 


presenta() 
Sub presenta 
background=IlmageList.Loadimage("F:\Esempi SB\skinmp3.jpg") 
GraphicsWindow. Title = "MP3 Player" 
GraphicsWindow. Drawlmage(background , -300 , -220) 
GraphicsWindow. Top = 10 
GraphicsWindow.Left= 10 
GraphicsWindow.Height= 350 
GraphicsWindow. Width = 400 
GraphicsWindow.CanResize = "False" 
Controls. ButtonClicked = BC 
buttons() 
EndSub 
Sub buttons 

GraphicsWindow.BrushColor= "Black" 


Controls.AddButton("Inserisci il percorso del FILE audio", 100 , 120) 


Controls.AddButton(" --> ", 50, 150) 
Controls.AddButton(" <-- ", 333, 150 ) 

path = Controls.AddTextBox( 120 , 150 ) 
Controls.SetSize(path , 180 , 25) 
GraphicsWindow.FontName = "Webdings" 
Program. Delay(500) 

play= Controls.AddButton(" 4", 122.5, 180) 
Program. Delay(500) 
pause-Controls.AdaButton(" : ", 192.5 , 180) 
Program. Delay(500) 

stop -Controls.AdaButton(" g ", 262.5 , 180) 
Graphics Window.FontName = "Arial" 
Graphics Window.FontBold = "True" 
Program. Delay(1000) 


end = Controls.AddButton("Click Here to End the Application", 190, 315) 


EndSub 
Sub BC 
If ( Controls.LastClickedButton - play) Then 
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filename - Controls.GetTextBoxText(path) 
Sound. Play(filename) 

Endlf 

If ( Controls.LastClickedButton - pause)Then 
Sound.Pause(filename) 

Endlf 

If( Controls.LastClickedButton - stop)Then 
Sound. Stop(filename) 

Endlf 

If( Controls.LastClickedButton - end)Then 
Program.End() 

Endlf 

EndSub 


Inserisci il percorso del FILE audio 


Click Here to End the Application 


Eu 
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PLUGIN 


INTRODUZIONE 

E un metodo che consente di estendere le applicazioni dotandole della possibilita di 
caricare componenti esterni, utile per fare crescere le applicazioni. 

Per plugin s'intende una serie di DLL (Dynamic Link Library) che una volta caricate 
nell'applicazione implementano nuove funzionalità. 

Е utile poiché consente di espandere le funzionalità base dell'applicazione anche a chi 
non ne é lo sviluppatore iniziale, posto che chi sviluppa il plugin deve condividere con 
l'applicazione base una serie di regole che consentono di fare dialogare i due elementi. 


É un componente software non necessariamente sviluppato dallo stesso team che ha 
creato l'applicazione che lo ospita, chiamata host. 

Non necessariamente scritto nello stesso linguaggio. 

É caricato dall'host a run-time tramite late binding e utilizzato senza che l'applicazione 
padre debba essere ricompilata. 


II fatto che un plugin possa essere scritto da un team diverso da quello che ha scritto 
l'applicazione host, significa che quest'ultima dovrà mettere a disposizione una serie di 
API (Application Programming Interface) che altri programmatori possono utilizzare per 
sviluppare i plugin. 

II .NET Framework garantisce la compatibilità binaria tra assembly sviluppati in linguaggi 
diversi che comunque generano codice IL (/ntermediate Language). 

Il fatto che il plugin sia caricato a run-time dà la possibilità di “agganciarlo” all'applicazione 
host senza che questa ne sia a conoscenza a priori, in altre parole non esiste un reference 
diretto all'assembly del plugin durante la compilazione dell'applicazione host. 

Per essere espandibile, l'applicazione deve avere qualche meccanismo per ricercare, 
caricare e attivare i plugin che sono stati sviluppati appositamente per essa. 

La prima operazione che l'applicazione host deve compiere é capire dove sono e quali 
sono i plugin da caricare. 

Per risolvere questo problema si ricorre a un file di configurazione XML (eXtensible 
Markup Language) che contiene la lista dei file da caricare. 

L'applicazione legge il file XML e ottiene la lista dei plugin. 

| plugin di Small Basic devono essere memorizzati nella cartella seguente. 

C:\PROGRAM FILES (X86) SMALLBASICALIB. 


Esempio, plugin per il calcolo del fattoriale. 


TextWindow.Show() 

TextWindow. Title "Selezione" 
TextWindow.Clear() 

TextWindow. Write("Inserisci un numero intero: ") 
n = TextWindow.ReadNumber() 

fat - Calcolo.Fattoriale(n) 

TextWindow. WriteLine("") 
TextWindow.ForegroundColorz "Yellow" 
TextWindow. WriteLine("ll fattoriale vale: "+fat) 
TextWindow.ForegroundColorz "Gray" 
TextWindow.CursorLeft =1 
TextWindow.CursorTop 223 


SmallBasic um 72 di 77 


Eseguire l'applicazione. 


Sono stati rilevati errori... 


6,7: Impossibile trovare l'oggetto 'Calcolo'. 


L'errore visualizzato è dovuto alla mancata memorizzazione della libreria 
LIBRERIACALCOLO.DLL nella cartella indicata in precedenza. 


File Modifica | Visualizza | Strumenti + 


Organizza v Includi nella mE, Condividi con v Masterizz: 


^ 


а |) SmallBasic *| Nome 
| di lib 


А ‘®) LibreriaCalcolo.dll 
р di TreeComp 2 


[2] LibreriaCalcolo.xml 


Chiudere l'ambiente di sviluppo e riaprirlo, verificare che il nuovo oggetto sia presente. 


ded»: 


Nuovo Apri So Salva con nome | : zagia zooi AN E Aa Esegui (F5) Esporta a VB 
| Programma 


Permette di eseguire 
diverse operazioni nella 
branca del calcolo delle 


probabilità e statistica 
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— | 
r | 


| Бф 2 = Ripe e ú 
Salve Salva con nome | ° Ca 2\!8 | Esegui (F5) Esporta a УВ | 
Шу | We N | 


eb Programma 


б = | Calcola il fattoriale di un 
i; numero 


Eseguire l'applicazione. 


iserisci un numero intero: 
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CONVERSIONE IN VISUAL BASIC 


INTRODUZIONE 
Aprire un'applicazione e premere il pulsante Esporta a VB. 
Per prima cosa bisogna indicare in quale cartella si vuole ottenere il progetto convertito. 


Bò Esporta a УВ 


Вы Esporta a Visual Basic 


La procedura guidata convertirà il programma Small Basic a 
Microsoft Visual Basic. ; 


Il percorso dell' ‘output: 


FA \Esempi SB m 


| Continua | Annulla | 


Опа уоһа premuto il pulsante Continua, si aprira automaticamente Visual Studio е partira 
il wizard della conversione del progetto. 


Conversione guidata di 
Visual Studio 


Deve essere eseguita la conversione della soluzione o del progetto che si sta 
tentando di aprire in quanto e stato creato in una versione precedente di Visual 
Studio o si basa su una versione meno recente di un programma installato nel 
computer. In seguito alla conversione di una soluzione o dei relativi progetti, 
potrebbe non essere più possibile modificare, compilare o eseguire la soluzione 
nelle versioni precedenti. 


Se la soluzione o il progetto è sottoposto al controllo del codice sorgente, ne 
verrà eseguita automaticamente l'estrazione durante la conversione, Verificare 
che il plug-in del controllo del codice sorgente corretto sia attivo e che nessun 
file venga estratto in modo esclusivo da altri utenti. 


Se la soluzione o il progetto non ë sottoposto al controllo del codice sorgente, 
verificare che per tutti i file siano disponibili autorizzazioni di lettura/scrittura. 


Scegliere Avanti per continuare. 
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Confermare tutti i passi del wizard, mantenendo le opzioni di default. 
Non tutto funzionerà subito a dovere. 


r = A = = 
90 sequenza - Microso isual Studio (Amminis tretore) PEINE ады N 25 [ns CEN сені 


Mii Kh li дымы ыла md 


a TAN An “К ТШТ 


| sequenzaModulexb* x | | 
ara pA 
1 e Module —— $f CH sequenza. 

2 ы Sub Main() | Ба] My Project 

| TextWindow Show() Ye] sequenzaModule.vb 
| TextWindow Title = "Sequenza" 
| 
| 


Co 


Cn 4 


TextWindow.Clear() 

TextWindow.ForegroundColor - "Yellow" 

TextWindow WritelLine(" Ciao, mondo!") 

TextWindow.ForegroundColor = "Gray" 

TextWindow.CursorL eft = 0 

101 | TextWindow.CursorTop = 2 Proprieta 

11 | End Sub sequenza Proprietà progetti ~ 
12. | End Module СТІ = 


100% ~ «| a 


со - о 


1әл1ә5 e1o]ds3 Sg циәшпу» үбәр е||әѕео X 


© 
DEC 


Cartella del FAEsempi SBL I 
File di prog sequenza.vbproj 


Descrizione i Riga Colonna 


A1 Impossibile trovare il componente 
"SmallBasicLibrary" a cui si ë fatto 
riferimento. 

Q2 'TexWindow' non dichiarato. Non е sequenzaModulevb 3 
accessibile a causa del livello di protezione. 


Э 3 'TetWindow' non dichiarato. Non е uenzaModule.vb 4 


Cartella del progetto — — 
Percorso del file di progetto. 


Pronto 


L'errore principale è dato dalla mancanza del file di libreria SMALLBASICLIBRARY.DLL. 
La libreria non è aggiunta automaticamente e quindi dev'essere aggiunta manualmente. 
Aprire il menu contestuale con un clic destro sul nome del progetto, nella finestra Esplora 
Soluzioni, poi si dovrà selezionare la voce Aggiungi\Elemento esistente... (CTRL+D). 
Si apre una finestra per la selezione del file da aggiungere, se i file DLL non sono visibili 
nella finestra, è necessario modificare il filtro dei file da visualizzare. 
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Una volta confermata la selezione, la DLL ë aggiunta al progetto: la libreria ë referenziata 
e gli errori spariscono. 


r 


90 sequenza - Microsoft Visual Studio (Amministratore) 7777” viii 2 
File Modifica Visualizza „Progetto sang Debug Team Пай Strumenti VMware Architettura Test Analizza Finestra i 


idoga dalk asal ea. at ia saper A 


| sequenzaModulexb* x | x - antes 
1&8 jMadie sequenzaModule i im sequenza. 
: Sub Main() Ë Ba My Project 

TextWindow.Show() 
TextWindow.Title = "Sequenza" 
TextWindow.Clear() 
TexiWindow.ForegroundColor = "Yellow 
TextWindow.WriteLine("Ciao, mondo!") 
TextWindow.ForegroundColor - "Gray" 
TextWindow.CursorLeft = 0 
TextWindow.CursorTop = 2 

| End Sub B es 

| End Module Cartella del FA (Es sempi SB\ 

"m " File di prog sequenza.vbproj 


=a 


Proprietà 


1әл1ә5 e10]ds3 Se nuəuunqs bsp ejjase> ax. 


sequenza Proprietà progetti ~ 


Descrizione i Riga Colonna 


Percorso del file di progetto, 


Pronto 


Eseguire l'applicazione. 


ғ 


В Sequenza 


ыт еы о O 
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